home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
fido
/
RFS275.lha
/
rexx
/
!DLG.rfh
next >
Wrap
Text File
|
1994-09-25
|
240b
|
9 lines
get_fd:
FDesc.ReqCount.SentCount=subword(arg(2),8)
fn=translate(FDesc.ReqCount.SentCount,"",'1b'x)
if ~open('dx',fn,'r') then return ""
tmpbuf=readch('dx',word(statef(fn),2))
call close('dx')
return substr(tmpbuf,lastpos('00'x,tmpbuf)+1)